home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / sysbust.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  2.4 KB  |  57 lines
  1. 1  KEY OFF:J=0:M=6:M1=9:Q=1
  2. 2  DIM K$(70):CLS:COLOR 7
  3. 3  INPUT "STARTING NUMBER";C:CLS
  4. 4  LOCATE 2,34:COLOR 17:PRINT "SYSTEM BUSTER":COLOR 2:PRINT:PRINT "                        The Unreal, Modified by Sy Aryeh":COLOR 12
  5. 5  PRINT "STARTING NUMBER =";C
  6. 7  CLOSE #1
  7. 8  FOR S=1 TO 2600:NEXT S
  8. 10  OPEN "com1:300,n,8,1,cs,ds" AS 1
  9. 20  A$="AT M1 S11=50 DT" 'MODEM COMMAND LINE-CHANGE M1 TO M0 FOR SILENT OPER.
  10. 22  B$="222-":IF C=10000 THEN END  '     B$ DETERMINES YOUR PREFIX
  11. 23  IF C>=1000 THEN C$=STR$(C):GOTO 27
  12. 24  IF C>=100 THEN C$="0"+STR$(C):GOTO 27
  13. 25  IF C>=10 THEN C$="00"+STR$(C):GOTO 27
  14. 26  C$="000"+STR$(C)
  15. 27  IF FLAG=0 THEN L$=C$:FLAG=1
  16. 28  IF CSRLIN<>24 THEN GOTO 39
  17. 32  CLS:M1=4:LOCATE 2,34:PRINT "SYSTEM BUSTER":PRINT "STARTING NUMBER = ";L$:LOCATE 1,1:PRINT J
  18. 33  IF J>0 THEN LOCATE 5,1:PRINT "COMPUTERS FOUND":FOR T=0 TO J:LOCATE T+6,5:PRINT K$(T):NEXT T
  19. 39  LOCATE M1,36:PRINT Q;CHR$(41)+B$+C$:M1=M1+1:Q=Q+1
  20. 40  PRINT#1,A$+B$+C$
  21. 43  D$=B$+C$
  22. 50  FOR S=1 TO 2600
  23. 55  IF LOC(1)>5 THEN 75
  24. 56  IF INKEY$=CHR$(27) THEN 60
  25. 57  NEXT S
  26. 60  C=C+1
  27. 70  GOTO 7
  28. 75  OPEN LEFT$(B$,3) FOR APPEND AS #3
  29. 76  K$(J)=D$:X=CSRLIN
  30. 77  WRITE#3,K$(J):CLOSE #3:J=J+1:LOCATE 1,1:PRINT J
  31. 78  LOCATE 5,1:PRINT "COMPUTERS FOUND":LOCATE M,5:PRINT D$
  32. 79  M=M+1:IF M=25 THEN M=6
  33. 80  LOCATE X,36:GOTO 60
  34. 100  END
  35. 500  RESUME
  36. 600  ' THIS PROGRAM IS WRITTEN FOR A HAYES MODEM - IT MAY BE NON-COMPATIBLE
  37. 610  ' WITH OTHER TYPES OF MODEMS,IF SO YOU CAN CHANGE THE COMMAND LINE
  38. 620  ' (LINE 20) TO SUIT YOUR MODEM'S COMMAND SET.
  39. 630  ' EVERYONE HAS TO SWITCH LINE 22 FROM B$="456-" TO YOUR OWN DESIRED
  40. 640  ' LOCAL PREFIX. ALSO,WHEN USING OTHER TERMINAL PROGRAMS BEFORE
  41. 650  ' USING THIS PROGRAM - BE SURE TO ISSUE A MODEM RESET BEFORE RUNNING
  42. 660  ' THIS PROGRAM. TO BE SURE ABOUT THIS,YOU CAN JUST TURN OF YOUR PC
  43. 670  ' AFTER USING A TERMINAL PROGRAM (EX. PC-TALK) THEN TURN IT BACK ON
  44. 680  ' AND LOAD THIS PROGRAM - THIS IS THE SUREST WAY TO ERASE ANY PREVIOUSLY
  45. 690  ' ISSUED MODEM COMMANDS.
  46. 700  ' YOU MAY PRESS THE ESCAPE KEY AT ANY TIME TO SKIP TO THE NEXT NUMBER
  47. 710  ' LINE 50 MAY BE CHANGED TO A HIGHER VALUE IF YOU DESIRE THE PROGRAM
  48. 720  ' TO WAIT LONGER FOR EACH CALL (IT IS SET FOR ABOUT 2 RINGS) BEFORE
  49. 730  ' IT GOES ON TO THE NEXT PHONE NUMBER.
  50. 740  ' IF YOU DO EVER CHANGE LINE 20 (COMMAND LINE) YOU WILL ALSO HAVE TO
  51. 750  ' CHANGE LINE 55 - IF YOU ADDED A 3 CHARACTER COMMAND YOU WOULD HAVE
  52. 760  ' TO CHANGE LINE 55 TO "IF LOC(1)>25" TO "IF LOC(1)>30" AN INCREASE
  53. 770  ' OF FIVE  - 3 FOR THE 3 CHARACTER COMMAND AND 2 FOR THE SPACES ON
  54. 780  ' EITHER SIDE OF THE COMMAND..... YOU WILL HAVE TO EXPERIMENT
  55. 790  ' IF YOU HAVE ANY PROBLEMS THEN MAIL SYSOP OR TALK WITH SYSOP
  56. 1000  '  ** END OF P
  57.